view _test/temp.pl @ 117:0475eb382085

Controls support (RC1)
author wizard
date Thu, 03 Jun 2010 02:41:44 +0400
parents 196bf443b5e1
children a4b0a819bbda
line wrap: on
line source

#!/usr/bin/perl
use strict;

my $var = "  some stuff";

$var =~ tr/f/ome/;
print $var;