#!/usr/bin/perl -w

use strict;

for my $new1 qw(1 11 a1a 1aa 001 010) {

    print "$new1 == /1/ : ";
    if ( $new1 == /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 == 1 : ";
    if ( $new1 == 1 ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 =~ /1/ : ";
    if ( $new1 =~ /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 eq /1/ : ";
    if ( $new1 eq /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 eq 1 : ";
    if ( $new1 eq 1 ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "=" x 10, $/;

}