#!/usr/bin/perl
use warnings;
use strict;

my $val = 1100;
print "Value contains a 0\n" if $val =~ /0/;
print "Value is actually equal to 0\n" if $val =~ /^0$/;