Subtract 1 from $var
#!/usr/bin/perl $var=0; $var -= 1; # Subtract 1 from $var print "\$var -= 1 is $var\n";