Help for this page

Select Code to Download


  1. or download this
    $data = "Johnson%Andrew%AX321%Engineer" ;
$data = "Smith%John%BC142%Alberta";
  2. or download this
    print "$2 $1\n" if m/^(.*?)%(.*?)%A/;
  3. or download this
    Andrew Johnson       ## output Ok 
John%BC142Smith      ## Wrong