6 lines
60 B
Perl
6 lines
60 B
Perl
|
while (<>) {
|
||
|
|
if (/version : '(.+)',/) {
|
||
|
|
print "$1";
|
||
|
|
}
|
||
|
|
}
|