■

#!/usr/bin/perl
use strict;
use warnings;

$_ = '1234567890';
tr/1234567890/abcdefghij/;
print $_, "\n";
print int(rand(10)), "\n";
print "こんにちは\n";