Select Code to Download

$t =~ s/\/home\/roboticus\/tmp/\/home\/postgresql\/tmp/;
$t =~ s{/home/roboticus/tmp}{/home/postgresql/tmp};
$t =~ s#/home/roboticus/tmp#/home/postgresql/tmp#;

$ cat t.pl
#!/usr/bin/perl
...

$ perl t.pl
xple, bxa, durix