#!/usr/bin/perl
use strict;
my $entry = 'Test23242asdsa 0,03 23.05.19 22.05.19';
my ($name, $expense, $date_expense, $date_paid) = ($1, $2, $3, $4) if ($entry =~ m/^(.+)\s((?:\d+\.)?\d{1,3},\d{2})\s(\d{2}\.\d{2}\.\d{2})\s(\d{2}\.\d{2}\.\d{2})$/);
print "Name: '$name', Expense: '$expense', Date: '$date_expense', Date Paid: '$date_paid' \n";
IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugc3RyaWN0OwpteSAkZW50cnkgPSAnVGVzdDIzMjQyYXNkc2EgMCwwMyAyMy4wNS4xOSAyMi4wNS4xOSc7Cm15ICgkbmFtZSwgJGV4cGVuc2UsICRkYXRlX2V4cGVuc2UsICRkYXRlX3BhaWQpID0gKCQxLCAkMiwgJDMsICQ0KSBpZiAoJGVudHJ5ID1+IG0vXiguKylccygoPzpcZCtcLik/XGR7MSwzfSxcZHsyfSlccyhcZHsyfVwuXGR7Mn1cLlxkezJ9KVxzKFxkezJ9XC5cZHsyfVwuXGR7Mn0pJC8pOwpwcmludCAiTmFtZTogJyRuYW1lJywgRXhwZW5zZTogJyRleHBlbnNlJywgRGF0ZTogJyRkYXRlX2V4cGVuc2UnLCBEYXRlIFBhaWQ6ICckZGF0ZV9wYWlkJyBcbiI7