Help for this page

Select Code to Download


  1. or download this
    $ perl -e 'chomp($orig = <STDIN>); ($tmp = $orig) =~ s/[^A-Z]//g; prin
+t "Copy: $tmp\nOriginal: $orig\n";'
WeDfT
Copy: WDT
Original: WeDfT
  2. or download this
    use strict;
use warnings;
...
else {
    print "'$input' does not match.\n";
}
  3. or download this
    $ perl test.pl
WaFFe
...
$ [bwisti@w3d145 tmp]$ perl test.pl
AeBwaffleCfrenchtoastD
'AeBwaffleCfrenchtoastD' matches!