Help for this page

Select Code to Download


  1. or download this
    use strict ; use warnings ;

...
rst    s7
uvwx    s8
yz    s9
  2. or download this
    my $data = "\n" ;
{ local $/ ; $data .= <DATA> ; } ;
...
my $s = 'bc' ;  # Substring to search for in left hand side

my @r = ($data =~ m/\n.*?$s[^\s]*[ \t]+(.*)/g) ;