Re: Pearls (not really) of Perl programming

[Anonymous Monk]

Example 1

#!/usr/bin/perl

#---------------------------------------------------------------
# Saltillo Perl Mongers
# Generoso Montemayor
# 24/11/2004
#  
#---------------------------------------------------------------

# 
use strict;
my $str;
$str = "1some text1";
$str = substr($str, 1, -1);
print ($str,"\n");

Edit by castaway - added code tags