Select Code to Download

#! /usr/bin/perl

$str = <<HERE ;
...
($dum)  = $str =~/abc\s(\d+)/gs ;

print "dum is $dum\n" ;