0:#!/usr/bin/perl
0:
0:my $blah=1;
0:my $blah2=3;
0:
0:if ($blah1 =~ blah2) {
4:then do this;
4:and if not {
8:then do this as well;
8:and then this {
12:       blah;
8:       }
8:return it;
4:   }
4:talk
0:}