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

my $line = "Version: 0\r\n";
my $line1 = "Version: 0\r\n";
my $line2 = "Version: 0\r\n";
my $line3 = "Version: 0\r\n";


$line =~ s/\n|\r//g;
print "Line: |$line| ... \n";

$line1 =~ /^Version:\s(\d)$/;
print "Line1: -|$line1|- ... \n";

$line2 =~ /^Version:(\s\d+)$/;
print "Line2 with \\s inside capture: --|$line2|-- ... \n";

my ($version) = $line3 =~ /^Version:\s(\d)$/;
print "Line3 (paren'ed \$version): ---|$version|--- ... \n";

=head OUTPUT
Line: |Version: 0| ...
Line1: -|Version: 0
|- ...
Line2 with \s inside capture: --|Version: 0
|-- ...
Use of uninitialized value in concatenation (.) or string at 793602.pl
+ line 22.
Line3 (paren'ed $version): ---||--- ...

=cut
[download]