Perl code - 4 lines

Link:

Perl, pasted on Sep 14:

$s = "1.2";
$s1 = "4.2.5";
$s =~ s/(\d\.\d)(\.\d)?/'@Version ' . $1 . ($2?$2:'.0')/ge;
print $s;

Output:

1	@Version 1.2.0