$sites = 'All da wong paces';
&wooking

sub wooking

{ 

if ($sites =~ m/Nub/)
   {
   &Bless_the_day
   }
else
   {
   &wooking
   }
}