#!/usr/bin/perl -w
use strict;

sub test {
  my ($param) = @_;

  if ($param =~ /e/) {
    print "e found.\n";
    return;
  };
  print "No e found.\n";
};

&test( "test" );
&test( "toast" );