#!/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");