#!/usr/bin/perl

my $blah=1;
my $blah2=3;

if ($blah1 =~ blah2) {
    then do this;
and if not {
then do this as well;
and then this {
blah;
}
return it;
}
talk
}