[kers]

if ($instr =~ /(pattern)/)
{
print $1;
}

$instr är strängen som du vill testa / matcha i
pattern är regeln som du vill matcha
$1 är det från $instr som matchar regeln inom paranteserna pattern

konkrekt exempel:

#!/usr/bin/perl
use strict;

my $instr = "hej din gamla get";

if ($instr =~ /(ga.*) /)
{
print $1;
}