#!/usr/bin/perl

@a = (<>=~/(\d+?)/g);
print join '', @a;