- sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
- (!!$3 && qq(<path d="$_"/>))
+ my ($x, $y, $next) = m/\AM(\d+),(\d+)(.)?/;
+ sprintf('<circle cx="%s" cy="%s" r="1"/>', $x, $y) . # start point
+ (defined $next && qq(<path d="$_"/>))