Select Code to Download

#!/usr/bin/perl -w
use strict;

...
my $result = substr($string,index($string,$look_for),length($look_for)
+);

print $result;

$str =~ /(Version\s+\d+\.\d+)/;
$result = $1;

grep> cd pub
grep> more beer