Select Code to Download

$ perltidy pm_11105453.pl
$ vi pm_11105453.pl
...
47 52.257
X=(1, 7, 3)
122 09.400

$ perl -e 'print chr(0x35)'
5
...
0
$ perl -e 'print chr(48)'
0

@t = (2, 3, 0);
@x = (1, 7, 3);
...
  . ( @x[2] + 1 )
  . '0'
  . ( ( @x[1] % 4 ) - 3 ) . "\n";

print "47 52.257\n";
print "122 09.400\n";