#!/usr/bin/perl

&foo;

sub foo {
   "foo" =~ /(.*)/;
   print "foo 1: $1\n";   
   {
      "innerfoo" =~ /(.*)/;
      print "foo 2: $1\n";   
   }
   &bar;
   print "foo 3: $1\n";   
}

sub bar {
	"bar" =~ /(.*)/;
	print "bar  : $1\n";   
}