#!/usr/bin/perl -l

my $seq  = "atgtagat";
my $find = "gta";

my ($before, $after) = $seq =~ /(..)$find(..)/;

print "before: $before";    # "at"
print "after:  $after";     # "ga"