view _test/temp.pl @ 118:79cdd6c86409

JSON support (experimental)
author wizard
date Mon, 07 Jun 2010 08:21:26 +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;