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

my $look_for = 'foobar';
my $string = 'this whole script is foobared';

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

print $result;

##</code><code>##

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


##</code><code>##

grep> cd pub
grep> more beer