Help for this page

Select Code to Download


  1. or download this
    while(my $message = <FILE>) {
  print "$1: $2<br/>"
    if /^(Alberta226: )([a-zA-Z, 0-9])+/; # I added the +
}
  2. or download this
    while(<FILE>) {
  print "$1: $2<br/>"
    if /^(Alberta226: )([a-zA-Z, 0-9])+/;
}
  3. or download this
    while(my $message = <FILE>) {
  print "$1: $2<br/>"
    if $message =~/^(Alberta226: )([a-zA-Z, 0-9])+/;
}