Script to auto publish npm packages

shipt-npm.pl

#!/usr/bin/env perl

use v5.14;
use warnings;

use Path::Class;

my ($ma, $mi, $ri) = file('package.json')->slurp =~ m/"version": "(\d+)\.(\d+)\.(\d+)"/;
say "Current version: $ma.$mi.$ri";
$ri++;

print "Next version [$ma.$mi.$ri]: ";
my $VERSION = (<> =~ s/\s+//rg) || "$ma.$mi.$ri";

for ('package.json') {
	my $new = file($_)->slurp =~ s/"version": ".+?"/"version": "$VERSION"/r;
	my $fh = file($_)->open('w');
	print $fh $new;
	close $fh;
}
print "Realy want to publish [$VERSION] to npm? [yN]: ";
if (<> =~ /y/i) {
	say "Publishing...";
	system('npm publish');
	system("git add -u");
	system("git commit -m '$VERSION'");
	system("git tag $VERSION");
	system("git push --tags");
	system("git push");
} else {
	say "Canceled";
}