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

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

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

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