Help for this page

Select Code to Download


  1. or download this
    my $inLine= "RPC, rpc #001b, (1987)";
$inLine=~/\((\d+)\)/;
print $1
  2. or download this
    my $inLine= "RPC, rpc #001b, (1987)";
($itm, $date)= split /[()]/, $inLine;
print $date;