#!/usr/bin/perl -w
use strict;

my $x = "0 but true";
print $x + 1;         #prints 1!!!

my $xx = "1 but true";
# print $xx +1;        #Ooops ERROR!
                       #non-numeric addition!