use strict;

my $name = 'school&0';
my ($first,$last) = $name =~ /(.+)&(.+)/;

print "$first:$last\n";
print "== is true\n" if $last == 0;
print "eq is true\n" if $last eq '0';
print "=~ is true\n" if $last =~ /^0$/;