$sites = 'All the wrong places';
&looking

sub looking

{ 

if ($sites =~ m/Love/)
   {
   &Bless_the_day
   }
else
   {
   &looking
   }

}