open(FH, "$file");
	my @output = <FH>;
	close FH;
foreach $logmsg (@output)
	{
		$sdpString

 use Mail::Sender;
sub sendEmail
{    
    my $mailmsg =shift;    
    my $sender = new Mail::Sender {from => ''}; 
   
$sender->MailMsg(
{   
    smtp => '',
    to      => [EMAIL],
    subject => "",
    msg => " "
});

}

$ver = 1.92 (i get it dynamically)
 my $patternph = 'Configuration file '. "\"phone1\.cfg\"" ." is from template phone1\.cfg, revision "."$phver" ;
foreach my $val (@output)
	{	
		
		if ($val =~ /\Q$patternph\E/)
		{

@data=('man', 'women', 'man', 'man',
       'women', 'man', 'man', 'man');
my $str;
my $women;
for ($i = 1;$i <=$#data+1;$i++)
{
  $str.= $i if $data[$i-1]=~ /man/;
   $women.= $i if $data[$i-1]=~ /women/;
    
}
print "$str:man\n";
print "$women:women";

my $sth = $dbh->prepare($query);
	$sth->execute;
	
	while(my $ref = $sth->fetchrow_hashref())
	{
		print "Found a row: name = $ref->{'employee'}, Model = $ref->{'model'},Mac = $ref->{'mac'}<br>";

use strict;

use DBI;
use DBD::mysql;

my $drh