Anagrams of First Great Western served stations

More on Character Strings example from a Well House Consultants training course
More on More on Character Strings [link]

Source code: ogado Module: P212

sub sletter {
        my $ip = $_[0];
        $ip =~ s/<.*?>//g;
        $ip =~ tr/a-zA-Z/ /cs;
        my $x = lc($ip);
        $x =~s/\s//g;
        @chars = split(//,$x);
        @c2 = sort(@chars);
        $sorted = join("",@c2);
        }

while (<DATA>) {
        $sorted = sletter($_);
        /"(...)">(.*)</;
        $anago{$sorted} .= " $2 - $1";
        }

while (1) {
        print "Anagram? ";
        chop ($where = <STDIN>);
        last unless $where;
        $sorted = sletter($where);
        if ($anago{$sorted}) {
                print "'$where' is $anago{$sorted}\n";
        } else {
                print "'$where' is not known\n";
        }
}

__END__
<option value="AML">Acton Main Line</option>
<option value="AMT">Aldermaston</option>
<option value="APF">Appleford</option>
<option value="AUW">Ascott-Under-Wychwood</option>
<option value="ASH">Ash</option>
<option value="ASC">Ashchurch For Tewkesbury</option>
<option value="AVF">Avoncliff</option>
<option value="AVN">Avonmouth</option>
<option value="BAN">Banbury</option>
<option value="BAA">Barnham</option>
<option value="BNP">Barnstaple</option>
<option value="BSK">Basingstoke</option>
<option value="BTH">Bath Spa</option>
<option value="BMT">Bedminster</option>
<option value="BDW">Bedwyn</option>
<option value="BAS">Bere Alston</option>
<option value="BFE">Bere Ferrers</option>
<option value="BTO">Betchworth</option>
<option value="BIT">Bicester Town</option>
<option value="BTE">Bitterne</option>
<option value="BAW">Blackwater</option>
<option value="BOD">Bodmin Parkway</option>
<option value="BOE">Botley</option>
<option value="BNE">Bourne End</option>
<option value="BOA">Bradford-On-Avon</option>
<option value="BMY">Bramley Hants</option>
<option value="BGN">Bridgend</option>
<option value="BWT">Bridgwater</option>
<option value="BTN">Brighton</option>
<option value="BPW">Bristol Parkway</option>
<option value="BRI">Bristol Temple Meads</option>
<option value="BRU">Bruton</option>
<option value="BGL">Bugle</option>
<option value="BNM">Burnham</option>
<option value="CSK">Calstock</option>
<option value="CDU">Cam and Dursley</option>
<option value="CBN">Camborne</option>
<option value="CBB">Carbis Bay</option>
<option value="CDF">Cardiff Central</option>
<option value="CMN">Carmarthen</option>
<option value="CBP">Castle Bar Park</option>
<option value="CLC">Castle Cary</option>
<option value="CAU">Causeland</option>
<option value="CPN">Chapelton</option>
<option value="CBY">Charlbury</option>
<option value="CNM">Cheltenham Spa</option>
<option value="CNO">Chetnole</option>
<option value="CCH">Chichester</option>
<option value="CHL">Chilworth</option>
<option value="CPM">Chippenham</option>
<option value="CHO">Cholsey</option>
<option value="CFN">Clifton Down</option>
<option value="CWL">Colwall</option>
<option value="CME">Combe</option>
<option value="COO">Cookham</option>
<option value="COE">Coombe Cornwall</option>
<option value="COP">Copplestone</option>
<option value="CSA">Cosham</option>
<option value="CDI">Crediton</option>
<option value="CRN">Crowthorne</option>
<option value="CUM">Culham</option>
<option value="DWL">Dawlish</option>
<option value="DWW">Dawlish Warren</option>
<option value="DEN">Dean</option>
<option value="DPT">Devonport</option>
<option value="DID">Didcot Parkway</option>
<option value="DIG">Digby and Sowton</option>
<option value="DMH">Dilton Marsh</option>
<option value="DOC">Dockyard</option>
<option value="DCW">Dorchester West</option>
<option value="DPD">Dorking Deepdene</option>
<option value="DKT">Dorking West</option>
<option value="DRG">Drayton Green</option>
<option value="EAL">Ealing Broadway</option>
<option value="ESL">Eastleigh</option>
<option value="EGG">Eggesford</option>
<option value="EVE">Evesham</option>
<option value="EXC">Exeter Central</option>
<option value="EXD">Exeter St Davids</option>
<option value="EXT">Exeter St Thomas</option>
<option value="EXM">Exmouth</option>
<option value="EXN">Exton</option>
<option value="FAL">Falmouth Docks</option>
<option value="FMT">Falmouth Town</option>
<option value="FRM">Fareham</option>
<option value="FNN">Farnborough North</option>
<option value="FYS">Ferryside</option>
<option value="FIT">Filton Abbey Wood</option>
<option value="FIN">Finstock</option>
<option value="FTN">Fratton</option>
<option value="FFD">Freshford</option>
<option value="FRO">Frome</option>
<option value="FZP">Furze Platt</option>
<option value="GTW">Gatwick Airport</option>
<option value="GCR">Gloucester</option>
<option value="GOM">Gomshall</option>
<option value="GOR">Goring and Streatley</option>
<option value="GMV">Great Malvern</option>
<option value="GFD">Greenford</option>
<option value="GLD">Guildford</option>
<option value="GSL">Gunnislake</option>
<option value="HME">Hamble</option>
<option value="HND">Hanborough</option>
<option value="HAN">Hanwell</option>
<option value="HAV">Havant</option>
<option value="HAY">Hayes and Harlington</option>
<option value="HYL">Hayle</option>
<option value="HAF">Heathrow Terminal 4</option>
<option value="HXX">Heathrow Terminals 1-2-3</option>
<option value="HDE">Hedge End</option>
<option value="HOT">Henley-On-Thames</option>
<option value="HFD">Hereford</option>
<option value="HYD">Heyford</option>
<option value="HIG">Highbridge and Burnham</option>
<option value="HYB">Honeybourne</option>
<option value="HOV">Hove</option>
<option value="HGD">Hungerford</option>
<option value="ISP">Islip</option>
<option value="IVR">Iver</option>
<option value="IVY">Ivybridge</option>
<option value="KEM">Kemble</option>
<option value="KEY">Keyham</option>
<option value="KYN">Keynsham</option>
<option value="KWL">Kidwelly</option>
<option value="KGM">Kingham</option>
<option value="KGN">Kings Nympton</option>
<option value="KGS">Kings Sutton</option>
<option value="KIT">Kintbury</option>
<option value="LNY">Langley</option>
<option value="LAP">Lapford</option>
<option value="LWH">Lawrence Hill</option>
<option value="LED">Ledbury</option>
<option value="LEL">Lelant</option>
<option value="LTS">Lelant Saltings</option>
<option value="LSK">Liskeard</option>
<option value="LLE">Llanelli</option>
<option value="PAD">London Paddington</option>
<option value="LOO">Looe</option>
<option value="LOS">Lostwithiel</option>
<option value="LUX">Luxulyan</option>
<option value="LYC">Lympstone Commando</option>
<option value="LYM">Lympstone Village</option>
<option value="MDN">Maiden Newton</option>
<option value="MAI">Maidenhead</option>
<option value="MVL">Malvern Link</option>
<option value="MLW">Marlow</option>
<option value="MKM">Melksham</option>
<option value="MEN">Menheniot</option>
<option value="MDG">Midgham</option>
<option value="MTP">Montpelier</option>
<option value="MRD">Morchard Road</option>
<option value="MIM">Moreton-In-Marsh</option>
<option value="MOR">Mortimer</option>
<option value="DBG">Mottisfont and Dunbridge</option>
<option value="NLS">Nailsea and Backwell</option>
<option value="NTH">Neath</option>
<option value="NTL">Netley</option>
<option value="NBY">Newbury</option>
<option value="NRC">Newbury Racecourse</option>
<option value="NWP">Newport South Wales</option>
<option value="NQY">Newquay</option>
<option value="NTA">Newton Abbot</option>
<option value="NTC">Newton St Cyres</option>
<option value="NCM">North Camp</option>
<option value="OLF">Oldfield Park</option>
<option value="OXF">Oxford</option>
<option value="PAD">Paddington</option>
<option value="PGN">Paignton</option>
<option value="PAN">Pangbourne</option>
<option value="PAR">Par</option>
<option value="PSN">Parson Street</option>
<option value="PWY">Patchway</option>
<option value="PBY">Pembrey and Burry Port</option>
<option value="PMB">Pembroke</option>
<option value="PMD">Pembroke Dock</option>
<option value="PNM">Penmere</option>
<option value="PYN">Penryn</option>
<option value="PNZ">Penzance</option>
<option value="PRW">Perranwell</option>
<option value="PSH">Pershore</option>
<option value="PEW">Pewsey</option>
<option value="PIL">Pilning</option>
<option value="PLY">Plymouth</option>
<option value="POL">Polsloe Bridge</option>
<option value="PTA">Port Talbot Parkway</option>
<option value="PTC">Portchester</option>
<option value="PMS">Portsmouth and Southsea</option>
<option value="PMA">Portsmouth Arms</option>
<option value="PMH">Portsmouth Harbour</option>
<option value="QUI">Quintrell Downs</option>
<option value="RAD">Radley</option>
<option value="RDG">Reading</option>
<option value="RDW">Reading West</option>
<option value="RDH">Redhill</option>
<option value="RDA">Redland</option>
<option value="RED">Redruth</option>
<option value="REI">Reigate</option>
<option value="ROC">Roche</option>
<option value="ROM">Romsey</option>
<option value="SAL">Salisbury</option>
<option value="STS">Saltash</option>
<option value="SND">Sandhurst</option>
<option value="SDP">Sandplace</option>
<option value="SDF">Saundersfoot</option>
<option value="SML">Sea Mills</option>
<option value="SVB">Severn Beach</option>
<option value="STJ">Severn Tunnel Jn</option>
<option value="SFR">Shalford</option>
<option value="SHI">Shiplake</option>
<option value="SIP">Shipton</option>
<option value="SHH">Shirehampton</option>
<option value="SHO">Sholing</option>
<option value="SSE">Shoreham-By-Sea</option>
<option value="SLO">Slough</option>
<option value="SGN">South Greenford</option>
<option value="STL">Southall</option>
<option value="SOA">Southampton Airport Parkwy</option>
<option value="SOU">Southampton Central</option>
<option value="SAR">St Andrews Road</option>
<option value="SAU">St Austell</option>
<option value="SBF">St Budeaux Ferry Road</option>
<option value="SBV">St Budeaux Victoria Road</option>
<option value="SCR">St Columb Road</option>
<option value="SDN">St Denys</option>
<option value="SER">St Erth</option>
<option value="SGM">St Germans</option>
<option value="SIV">St Ives</option>
<option value="SJP">St James' Park</option>
<option value="SKN">St Keyne</option>
<option value="SRD">Stapleton Road</option>
<option value="SCS">Starcross</option>
<option value="SHU">Stonehouse</option>
<option value="STD">Stroud</option>
<option value="SWA">Swansea</option>
<option value="SNW">Swanwick</option>
<option value="SWI">Swindon</option>
<option value="TAC">Tackley</option>
<option value="TAP">Taplow</option>
<option value="TAU">Taunton</option>
<option value="TGM">Teignmouth</option>
<option value="TEN">Tenby</option>
<option value="THA">Thatcham</option>
<option value="THE">Theale</option>
<option value="THO">Thornford</option>
<option value="TLH">Tilehurst</option>
<option value="TVP">Tiverton Parkway</option>
<option value="TOP">Topsham</option>
<option value="TQY">Torquay</option>
<option value="TRR">Torre</option>
<option value="TOT">Totnes</option>
<option value="TRO">Trowbridge</option>
<option value="TRU">Truro</option>
<option value="TWY">Twyford</option>
<option value="UMB">Umberleigh</option>
<option value="UPW">Upwey</option>
<option value="WAN">Wanborough</option>
<option value="WGV">Wargrave</option>
<option value="WMN">Warminster</option>
<option value="WDT">West Drayton</option>
<option value="WEA">West Ealing</option>
<option value="WSB">Westbury</option>
<option value="WNM">Weston Milton</option>
<option value="WSM">Weston-Super-Mare</option>
<option value="WEY">Weymouth</option>
<option value="WTL">Whitland</option>
<option value="WNC">Windsor and Eton Central</option>
<option value="WNS">Winnersh</option>
<option value="WKM">Wokingham</option>
<option value="WLS">Woolston</option>
<option value="WOF">Worcester Foregate Street</option>
<option value="WOS">Worcester Shrub Hill</option>
<option value="WOR">Worle</option>
<option value="WRH">Worthing</option>
<option value="YAE">Yate</option>
<option value="YAT">Yatton</option>
<option value="YEO">Yeoford</option>
<option value="YVP">Yeovil Pen Mill</option>
<option value="YET">Yetminster</option>

Learn about this subject

This module and example are covered on the following public courses:
* Perl Programming
* Perl bootcamp
* Learning to program in Perl
* Perl Programming
Also available on on site courses for larger groups

Books covering this topic

Yes. We have over 700 books in our library. Books covering Perl are listed here and when you've selected a relevant book we'll link you on to Amazon to order.

Other Examples

This example comes from our "More on Character Strings" training module. You'll find a description of the topic and some other closely related examples on the "More on Character Strings" module index page.

Full description of the source code

You can learn more about this example on the training courses listed on this page, on which you'll be given a full set of training notes.

Many other training modules are available for download (for limited use) from our download centre under an Open Training Notes License.

Other resources

• Our Solutions centre provides a number of longer technical articles.
• Our Opentalk forum archive provides a question and answer centre.
• The Horse's mouth provides a daily tip or thought.
• Further resources are available via the resources centre.
• All of these resources can be searched through through our search engine
• And there's a global index here.

Web site author

This web site is written and maintained by Well House Consultants.

Purpose of this website

This is a sample program, class demonstration or answer from a training course. It's main purpose is to provide an after-course service to customers who have attended our public private or on site courses, but the examples are made generally available under conditions described below.

Conditions of use

Past attendees on our training courses are welcome to use individual examples in the course of their programming, but must check the examples they use to ensure that they are suitable for their job. Remember that some of our examples show you how not to do things - check in your notes. Well House Consultants take no responsibility for the suitability of these example programs to customer's needs.

This program is copyright Well House Consultants Ltd. You are forbidden from using it for running your own training courses without our prior written permission. See our page on courseware provision for more details.

Any of our images within this code may NOT be reused on a public URL without our prior permission. For Bona Fide personal use, we will often grant you permission provided that you provide a link back. Commercial use on a website will incur a license fee for each image used - details on request.