#!/usr/bin/perl -w

use strict;

sub is_single
{
        my $email = shift;
        # remove spaces from beginning and end
        $email =~ s/^\s*|\s*$//g;
        # check for characters invalid in an emailaddress
        return $email=~/[\s,]/?0:1;
}

# prints 1
print is_single('hpotter@hotmail.com');

# prints 0
print is_single('hpotter@hotmail.com, mickymouse@disney.com');